home *** CD-ROM | disk | FTP | other *** search
/ Tele-Info 1 / Tele-Info 1.iso / Installieren < prev    next >
Text File  |  1996-09-17  |  5KB  |  180 lines
  1.  
  2. ; ---------------------------------------------------------------------
  3. ;
  4. ; $VER: TeleInfo Installer Script 1.0 (04.09.96)
  5. ;
  6. ; Script to install TeleInfo (german version)
  7. ;
  8. ; ---------------------------------------------------------------------
  9.  
  10. ; ---------------------------------------------------------------------
  11. ;
  12. ;   STRINGS (German)
  13. ;
  14. ; ---------------------------------------------------------------------
  15.  
  16.   (set #SourceDir "TeleInfo1CD:")
  17.   (set #SourceDataDir (tackon #SourceDir "Data"))
  18.   (set #TeleInfoPattern "TeleInfo#?")
  19.   (set #ExtraIndex "Z1.ind")
  20.  
  21.  
  22.   (set #AskDestDir
  23.    (cat "Bitte wählen Sie das Verzeichnis, in dem TeleInfo "
  24.         "installiert werden soll. "
  25.         "Es wird automatisch ein neues Verzeichnis 'TeleInfo' "
  26.         "für das Programm und die Daten angelegt." )
  27.   )
  28.   (set #AskDestDirHelp
  29.    (cat "Für die Installation werden auf dem Ziellaufwerk "
  30.         "je nach Installation 1 bis 31 MByte "
  31.         "freier Speicherplatz benötigt.\n\n"
  32.         "Das Installationsprogramm erstellt in dem ausgewählten "
  33.         "Pfad ein neues Verzeichnis 'TeleInfo'. Alle Dateien "
  34.         "werden in dieses Verzeichnis kopiert.\n\n"
  35.         "Sie können nach der Installation dem Verzeichnis natürlich "
  36.         "einen anderen Namen geben." )
  37.   )
  38.   (set #WhichPartsPrompt
  39.    (cat "Bitte wählen Sie aus, welche der folgenden "
  40.         "Installationsvarianten Sie installieren möchten:" )
  41.    )
  42.   (set #WhichPartsHelp
  43.    (cat "Wählen Sie die Variante, wie Sie TeleInfo installieren möchten:\n\n"
  44.         "Nur Link: Es wird nur ein Icon erzeugt, das Programm und alle Daten "
  45.         "bleiben auf der CD-Rom. Sehr langsam!!! (siehe auch 'Minimal')\n\n"
  46.         "Minimal: Hierbei werden alle Dateien, auch die Indexdateien, direkt "
  47.         "vom CD-Laufwerk gelesen. Dies führt zu sehr langen Wartezeiten "
  48.         "und ist nur zu empfehlen, wenn Sie über sehr wenig Festplattenspeicher "
  49.         "verfügen!\n\n"
  50.         "Standard: Bei dieser Einstellung werden die wichtigsten Indexdateien "
  51.         "auf Ihre Festplatte kopiert. Diese belegen 24 MByte. Dies ist die "
  52.         "empfohlene Einstellung für Systeme mit kleiner Festplatte.\n\n"
  53.         "Optimal: Es werden alle Indexdateien auf Ihre Festplatte kopiert. "
  54.         "Diese Option belegt gegenüber 'Standard' weitere 7 MByte - ingesamt "
  55.         "also 31 MByte. Sollten Sie über ausreichend Festplattenkapazität "
  56.         "verfügen, so sollten Sie diese Option wählen." )
  57.    )
  58.   (set #WhichPart0 "Nur Link  (1 KByte, nicht empfohlen!)")
  59.   (set #WhichPart1 "Minimal  (0,2 MByte, nicht empfohlen!)")
  60.   (set #WhichPart2 "Standard (24 MByte)")
  61.   (set #WhichPart3 "Optimal  (31 MByte)")
  62.  
  63. ; ---------------------------------------------------------------------
  64. ;
  65. ;   INSTALLATION SCRIPT - BEGIN
  66. ;
  67. ; ---------------------------------------------------------------------
  68.  
  69.  
  70. ;*** get OS version
  71. (set #osversion 3)
  72. (if (< (/ (getversion) 65536) 39) (set #osversion 2) )
  73. (if (< (/ (getversion) 65536) 36) (set #osversion 1) )
  74.  
  75. ;**** ask user which parts to copy (average & expert )
  76. (complete 3)
  77. (set whichparts 2)  ; default: Standard
  78. (if (> @user-level 0)
  79.  (
  80.     (set whichparts
  81.       (askchoice
  82.         (prompt #WhichPartsPrompt)
  83.         (help #WhichPartsHelp)
  84.         (choices #WhichPart0 #WhichPart1 #WhichPart2 #WhichPart3)
  85.         (default whichparts)
  86.       )
  87.     )
  88.  )
  89. ) ; if (userlevel)
  90.  
  91. ;**** ask user where to put TeleInfo
  92.  
  93. (set DestDir
  94.  (askdir
  95.   (prompt #AskDestDir )
  96.   (help #AskDestDirHelp )
  97.   (default "Work:")
  98.  )
  99. )
  100.  
  101.  
  102. ;****
  103.  
  104. (set RealDest (tackon DestDir "TeleInfo"))
  105. (set RealDestData (tackon RealDest "Data"))
  106.  
  107. (if (= (exists RealDest) 0)
  108.  (makedir RealDest (infos))
  109. )
  110. (if (> whichparts 1)
  111.  (
  112.    (if (= (exists RealDestData) 0)
  113.     (makedir RealDestData)
  114.    )
  115.  )
  116. )
  117. ; *** copy main programm
  118. (complete 5)
  119.  
  120. (if (= whichparts 0)
  121.  (
  122.    (copyfiles
  123.     (source (tackon #SourceDir "Extra"))
  124.     (dest RealDest)
  125.     (choices "TeleInfo.info")
  126.    )
  127.  )
  128.  (
  129.    (copyfiles
  130.     (source #SourceDir)
  131.     (dest RealDest)
  132.     (pattern #TeleInfoPattern)
  133.     (infos)
  134.    )
  135.  )
  136. )
  137. ; *** copy main index files
  138.  
  139. (complete 20)
  140. (if (= whichparts 1)
  141.  (
  142.   (tooltype
  143.    (dest (tackon RealDest "TeleInfo"))
  144.    (settooltype "INDEX" "TeleInfo1CD:Data")
  145.   )
  146.  )
  147. )
  148.  
  149. (if (> whichparts 1)
  150.  (
  151.    (copyfiles
  152.     (source #SourceDataDir)
  153.     (dest RealDestData)
  154.     (all)
  155.    )
  156.  )
  157. )
  158. ; *** copy additional index file(s)
  159.  
  160. (complete 90)
  161. (if (> whichparts 2)
  162.  (
  163.    (copyfiles
  164.     (source #SourceDir)
  165.     (dest RealDestData)
  166.     (choices #ExtraIndex)
  167.    )
  168.  )
  169. )
  170.  
  171. (set @default-dest RealDest)
  172. (complete 100)
  173.  
  174. ; ---------------------------------------------------------------------
  175. ;
  176. ;   INSTALLATION SCRIPT - END
  177. ;
  178. ; ---------------------------------------------------------------------
  179.  
  180.